SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
CREATE PROCEDURE [dbo].[SP_TTFECH_DOCU_Q01]  
/*--------------------------------------------------------------*/  
/*---- Empresa     : OFISIS S.A     ----*/  
/*---- Cliente     : OFISIS S.A     ----*/  
/*---- Sistema     : Ofiteso      ----*/  
/*---- Modulo     : Empresa      ----*/  
/*---- Programa        : Devuelve fecha de un documento  ----*/  
/*---- Script     :        ----*/  
/*---- Nombre SP    : SP_TTFECH_DOCU_Q01    ----*/  
/*---- Desarrollado por    : Reynaldo Menacho L  ----*/  
/*---- Fecha Creacion    : 06/05/2004    ----*/  
/*---- Base de Datos    : SQL      ----*/  
/*---- Version     : 2000       ----*/  
/*---- Invoca a SP     :        ----*/  
/*--------------------------------------------------------------*/  
/*--------------------------------------------------------------*/  
/*---- Comentarios         :        ----*/  
/*---- Drop Procedure  SP_TTFECH_DOCU_Q01               ----*/  
/*---- Grant ALL on  to public            ----*/  
/*----            ----*/  
/*--------------------------------------------------------------*/  
/*---- Grant Execute On SP_TTFECH_DOCU_Q01 to Public   ---*/  
/*----  Declare @VDFE_DOCU TD_DT_001  
  Exec SP_TTFECH_DOCU_Q01 '01', 'P', '10080857971', 'FAC', '0002-0000005989', 'E', @VDFE_DOCU    
OUTPUT  
  Select @VDFE_DOCU --*/  
/*--------------------------------------------------------------------------*/  
@ISCO_EMPR TD_VC_002,  
@ISTI_ENTI TD_VC_001,  
@ISCO_ENTI  TD_VC_020,  
@ISTI_DOCU TD_VC_003,  
@ISNU_DOCU TD_VC_020,  
@ISTI_FECH TD_VC_001,  
@IDFE_DOCU TD_DT_001 OUTPUT  
As  
Declare   
  @VDFE_EMIS  TD_DT_001,  
  @VDFE_VENC  TD_DT_001,  
  @VDFE_REGI_COMP TD_DT_001,  
  @VSCO_TIAU_CLIE TD_VC_001,  
  @VSCO_TIAU_PROV TD_VC_001,  
  @VSTI_DOCU_LETR TD_VC_003,  
  @VSNU_ASTO  TD_VC_010,  
  @VSNU_CORR_COMP TD_VC_020  
   
 Select @VSTI_DOCU_LETR = TI_DOCU  
 From TTDOCU_CNTB  
 Where ST_DOCU_0006 = 'S'  
  
 Select @VSCO_TIAU_CLIE = CO_TIAU_CLIE, @VSCO_TIAU_PROV = CO_TIAU_PROV  
 From TMPARA_TESO  
 Where CO_EMPR = @ISCO_EMPR  
  
 If @ISTI_ENTI = @VSCO_TIAU_CLIE  
   Begin  
  If @ISTI_DOCU != @VSTI_DOCU_LETR  
   Select @VDFE_EMIS = FE_EMIS, @VDFE_VENC = FE_VENC,   
     @VDFE_REGI_COMP = Null,  
     @VSNU_ASTO = NU_ASTO  
   From TMDOCU_CLIE  
   Where CO_EMPR = @ISCO_EMPR  
   And CO_CLIE = @ISCO_ENTI  
   And CO_TIPO_DOCU = @ISTI_DOCU  
   And NU_DOCU_CLIE = @ISNU_DOCU  
  Else  
   Select @VDFE_EMIS = FE_EMIS, @VDFE_VENC = FE_VENC,   
     @VDFE_REGI_COMP = Null,  
     @VSNU_ASTO = IsNull(NU_CANJ, NU_RENO)  
   From TMLETR_CLIE  
   Where CO_EMPR = @ISCO_EMPR  
   And CO_CLIE = @ISCO_ENTI  
   And NU_LETR_CLIE = @ISNU_DOCU  
   End  
 Else  
   Begin  
  If @ISTI_DOCU != @VSTI_DOCU_LETR  
   Select @VDFE_EMIS = FE_EMIS, @VDFE_VENC = FE_VENC,   
     @VDFE_REGI_COMP = FE_REGI_COMP,  
     @VSNU_ASTO = NU_ASTO  
   From TMDOCU_PROV  
   Where CO_EMPR = @ISCO_EMPR  
   And CO_PROV = @ISCO_ENTI  
   And CO_TIPO_DOCU = @ISTI_DOCU  
   And NU_DOCU_PROV = @ISNU_DOCU  
  Else  
   Select @VDFE_EMIS = FE_EMIS, @VDFE_VENC = FE_VENC,   
     @VDFE_REGI_COMP = Null,  
     @VSNU_ASTO = IsNull(NU_CANJ, NU_RENO)  
   From TMLETR_PROV  
   Where CO_EMPR = @ISCO_EMPR  
   And CO_PROV = @ISCO_ENTI  
   And NU_LETR_PROV = @ISNU_DOCU  
   End  
  
 If @ISTI_FECH = 'E'  
  Select @IDFE_DOCU = @VDFE_EMIS  
 Else If @ISTI_FECH = 'C'  
  Select @IDFE_DOCU = @VDFE_REGI_COMP  
 Else  
     Select @IDFE_DOCU = @VDFE_VENC  
  
/* ---------------------------- Fin -----------------------------------*/


GO
